home *** CD-ROM | disk | FTP | other *** search
/ START Magazine / START VOL 4 NO 1.st / POGOSRC.ARC / STLINE.ASM < prev    next >
Encoding:
Assembly Source File  |  1985-11-20  |  22.4 KB  |  873 lines
  1.  
  2.  
  3. *
  4. * Colour version of linedraw, using 4 bitplanes.
  5. * Line drawn from (d4,d5) -> (d6,d7).  No clipping done.
  6. *
  7.  
  8.         public drawcolr
  9. drawcolr:
  10.         ;find dx and dy
  11.         move.w  d6,d2       ; Find diff of x2-x1 
  12.         sub.w   d4,d2        ;d2 = dx
  13.         move.w  d7,d3
  14.         sub.w   d5,d3        ;d3 = dy
  15.  
  16.         move.w  #160,d6    ; Vertical byte offset to next scanline
  17.         cmp.w   d7,d5   ; Gradient up or down?
  18.         bls.s   cgodown
  19.         neg.w   d6      ; If up, negate values and Y abs
  20.         neg.w   d3
  21.         
  22.  
  23. * Find the address, and sub-bit of the first pixel in line*/
  24. cgodown: lsl.w   #5,d5   ; Multiply Y by 32
  25.         move.l  _cscreen,a0
  26.         lea   0(a0,d5.W),a0
  27.         lsl.w   #2,d5   ; Multiply Y by 4, to give y*128
  28.         lea   0(a0,d5.W),a0   ; Now Y*160 has been added
  29.         move.w  d4,d0   ; x div 8*4
  30.         lsr.w   #1,d0
  31.         and.w   #255-7,d0       ; Lose lsb and msb
  32. * Now a0 has x offset added to give true byte position on screen*/
  33.         lea   0(a0,d0.W),a0   ; plane 0 address
  34.  
  35.         moveq   #0,d0   ; Set the first pixel in d0
  36.         not.b   d4
  37.         and.b   #15,d4
  38.         bset    d4,d0
  39.  
  40.  
  41.         move.w  lcolor,d4   ; Colour
  42.         asl.w   #2,d4           ; LongWord indexing
  43.  
  44.  
  45.         cmp.w   d3,d2   ; Which axis is major?
  46.         bhi.s   cxmajor
  47.  
  48.  
  49. * Consult jump-table to work out which LineDraw routine to access.*/
  50. * There are 15 in all.. one for each Colour available!*/
  51.  
  52. cymajor: move.l #ymajtab,a1
  53.          move.l 0(a1,d4.w),a1
  54.         jmp     (a1)
  55.  
  56. cxmajor: move.l #xmajtab,a1
  57.          move.l 0(a1,d4.w),a1
  58.         jmp     (a1)
  59.  
  60.  
  61. cymajor0:
  62.     not.w d0
  63.         move.w  d3,d1   ; The Y axis is major
  64.     asr.w    #1,d1
  65.         move.w  d3,d7
  66. cyline0: and.w    d0,(a0)
  67.     and.w    d0,2(a0)
  68.     and.w   d0,4(a0)
  69.     and.w    d0,6(a0)
  70.         sub.w   d2,d1
  71.         bls.s   cxstepn0
  72. cdoystp0:        lea   0(a0,d6.w),a0   ; y=y+1
  73.         dbf    d7,cyline0
  74. retdraw: rts
  75.  
  76. cxstepn0:        add.w   d3,d1   ; add to the error term.
  77.         ror.w   #1,d0   ; x=x+1
  78.         bcs.s   cdoystp0
  79.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  80.         lea   0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  81.         dbf    d7,cyline0
  82.         rts
  83.  
  84.         
  85.  
  86. cxmajor0:
  87.     not.w    d0        
  88.     move.w  d2,d1   ; Step along the X axis...
  89.     asr.w    #1,d1
  90.         move.w  d2,d7
  91. cxline0: and.w    d0,(a0) ; set pixel
  92.     and.w    d0,2(a0)
  93.     and.w    d0,4(a0)
  94.     and.w    d0,6(a0)
  95.         sub.w   d3,d1
  96.         bls.s   cystpn0
  97.         ror.w   #1,d0   ; x=x+1
  98.         bcs.s   cror2fr0
  99.         addq.l  #8,a0
  100. cror2fr0:        dbf    d7,cxline0 
  101.         rts
  102. cystpn0: add.w   d2,d1   ; time to alter the y coord
  103.         lea   0(a0,d6.w),a0
  104.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  105.         bcs.s   cror2fr0
  106.         addq.l  #8,a0
  107.         dbf    d7,cxline0
  108.         rts
  109.        
  110.  
  111.  
  112. cymajor1:        move.w  d3,d1   ; The Y axis is major
  113.     asr.w    #1,d1
  114.         move.w  d3,d7
  115.  
  116. cyline1:
  117.     not.w    d0
  118.     and.w    d0,2(a0)
  119.     and.w    d0,4(a0)
  120.     and.w    d0,6(a0)
  121.     not.w   d0
  122.     or.w    d0,0(a0)
  123.         sub.w   d2,d1
  124.         bls.s   cxstepn1
  125. cdoystp1:        lea 0(a0,d6),a0   ; y=y+1
  126.         dbf    d7,cyline1
  127.         rts
  128.  
  129. cxstepn1:        add.w   d3,d1   ; add to the error term.
  130.         ror.w   #1,d0   ; x=x+1
  131.         bcc.s   cdoystp1
  132.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  133.         lea 0(a0,d6),a0   ; Repeat a bit of code here stead of branch
  134.         dbf    d7,cyline1
  135.         rts
  136.  
  137.         
  138.  
  139. cxmajor1:        move.w  d2,d1   ; Step along the X axis...
  140.     asr.w    #1,d1
  141.         move.w  d2,d7
  142.  
  143. cxline1:
  144.     not.w    d0
  145.     and.w    d0,2(a0)
  146.     and.w    d0,4(a0)
  147.     and.w    d0,6(a0)
  148.     not.w    d0
  149.     or.w    d0,0(a0)
  150.         sub.w   d3,d1
  151.         bls.s   cystpn1
  152.         ror.w   #1,d0   ; x=x+1
  153.         bcc.s   cror2fr1
  154.         addq.l  #8,a0
  155. cror2fr1:        dbf    d7,cxline1
  156.         rts
  157.  
  158. cystpn1: add.w   d2,d1   ; time to alter the y coord
  159.         lea     0(a0,d6.w),a0
  160.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  161.         bcc.s   cror2fr1
  162.         addq.l  #8,a0
  163.         dbf    d7,cxline1
  164.         rts
  165.  
  166.  
  167.  
  168.         
  169.  
  170. cymajor2:        move.w  d3,d1   ; The Y axis is major
  171.     asr.w    #1,d1
  172.         move.w  d3,d7
  173.  
  174. cyline2:
  175.     not.w    d0
  176.     and.w    d0,(a0)
  177.     and.w    d0,4(a0)
  178.     and.w    d0,6(a0)
  179.     not.w   d0
  180.     or.w    d0,2(a0)
  181.         sub.w   d2,d1
  182.         bls.s   cxstepn2
  183. cdoystp2:        lea 0(a0,d6),a0   ; y=y+1
  184.         dbf    d7,cyline2
  185.         rts
  186.  
  187. cxstepn2:        add.w   d3,d1   ; add to the error term.
  188.         ror.w   #1,d0   ; x=x+1
  189.         bcc.s   cdoystp2
  190.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  191.         lea 0(a0,d6),a0   ; Repeat a bit of code here stead of branch
  192.         dbf    d7,cyline2
  193.         rts
  194.  
  195.         
  196.  
  197. cxmajor2:        move.w  d2,d1   ; Step along the X axis...
  198.     asr.w    #1,d1
  199.         move.w  d2,d7
  200.  
  201. cxline2:
  202.     not.w    d0
  203.     and.w    d0,(a0)
  204.     and.w    d0,4(a0)
  205.     and.w    d0,6(a0)
  206.     not.w    d0
  207.     or.w    d0,2(a0)
  208.         sub.w   d3,d1
  209.         bls.s   cystpn2
  210.         ror.w   #1,d0   ; x=x+1
  211.         bcc.s   cror2fr2
  212.         addq.l  #8,a0
  213. cror2fr2:        dbf    d7,cxline2
  214.         rts
  215.  
  216. cystpn2: add.w   d2,d1   ; time to alter the y coord
  217.         lea     0(a0,d6.w),a0
  218.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  219.         bcc.s   cror2fr2
  220.         addq.l  #8,a0
  221.         dbf    d7,cxline2
  222.         rts
  223.  
  224.  
  225.  
  226.         
  227.  
  228. cymajor3:        move.w  d3,d1   ; The Y axis is major
  229.     asr.w    #1,d1
  230.         move.w  d3,d7
  231. cyline3: or.w    d0,(a0)
  232.         or.w    d0,2(a0)
  233.     not.w    d0
  234.     and.w    d0,4(a0)
  235.     and.w   d0,6(a0)
  236.     not.w    d0
  237.         sub.w   d2,d1
  238.         bls.s   cxstepn3
  239. cdoystp3:        lea     0(a0,d6.w),a0   ; y=y+1
  240.         dbf    d7,cyline3
  241.         rts
  242.  
  243. cxstepn3:        add.w   d3,d1   ; add to the error term.
  244.         ror.w   #1,d0   ; x=x+1
  245.         bcc.s   cdoystp3
  246.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  247.         lea     0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  248.         dbf    d7,cyline3
  249.         rts
  250.         
  251. cxmajor3:        move.w  d2,d1   ; Step along the X axis...
  252.     asr.w    #1,d1
  253.         move.w  d2,d7
  254. cxline3: or.w    d0,(a0) ; set pixel
  255.         or.w    d0,2(a0)
  256.     not.w    d0
  257.     and.w    d0,4(a0)
  258.     and.w   d0,6(a0)
  259.     not.w    d0
  260.         sub.w   d3,d1
  261.         bls.s   cystpn3
  262.         ror.w   #1,d0   ; x=x+1
  263.         bcc.s   cror2fr3
  264.         addq.l  #8,a0
  265. cror2fr3:        dbf    d7,cxline3
  266.         rts
  267. cystpn3: add.w   d2,d1   ; time to alter the y coord
  268.         lea     0(a0,d6.w),a0
  269.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  270.         bcc.s   cror2fr3
  271.         addq.l  #8,a0
  272.         dbf    d7,cxline3
  273.         rts
  274.  
  275.         
  276. cymajor4:        move.w  d3,d1   ; The Y axis is major
  277.     asr.w    #1,d1
  278.         move.w  d3,d7
  279.  
  280. cyline4: or.w    d0,4(a0)
  281.     not.w    d0
  282.     and.w    d0,(a0)
  283.     and.w    d0,2(a0)
  284.     and.w    d0,6(a0)
  285.     not.w    d0
  286.         sub.w   d2,d1
  287.         bls.s   cxstepn4
  288. cdoystp4:        lea     0(a0,d6.w),a0   ; y=y+1
  289.         dbf    d7,cyline4
  290.         rts
  291.  
  292. cxstepn4:        add.w   d3,d1   ; add to the error term.
  293.         ror.w   #1,d0   ; x=x+1
  294.         bcc.s   cdoystp4
  295.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  296.         lea     0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  297.         dbf    d7,cyline4
  298.         rts
  299.         
  300. cxmajor4:        move.w  d2,d1   ; Step along the X axis...
  301.     asr.w    #1,d1
  302.         move.w  d2,d7
  303.  
  304. cxline4: or.w    d0,4(a0) ; set pixel
  305.     not.w    d0
  306.     and.w    d0,(a0)
  307.     and.w    d0,2(a0)
  308.     and.w    d0,6(a0)
  309.     not.w    d0
  310.         sub.w   d3,d1
  311.         bls.s   cystpn4
  312.         ror.w   #1,d0   ; x=x+1
  313.         bcc.s   cror2fr4
  314.         addq.l  #8,a0
  315. cror2fr4:        dbf    d7,cxline4
  316.         rts
  317. cystpn4: add.w   d2,d1   ; time to alter the y coord
  318.         lea     0(a0,d6.w),a0
  319.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  320.         bcc.s   cror2fr4
  321.         addq.l  #8,a0
  322.         dbf    d7,cxline4
  323.         rts
  324.  
  325.         
  326. cymajor5:        move.w  d3,d1   ; The Y axis is major
  327.     asr.w    #1,d1
  328.         move.w  d3,d7
  329. cyline5: or.w    d0,(a0)
  330.         or.w    d0,4(a0)
  331.     not.w    d0
  332.     and.w    d0,2(a0)
  333.     and.w    d0,6(a0)
  334.     not.w    d0
  335.         sub.w   d2,d1
  336.         bls.s   cxstepn5
  337. cdoystp5:        lea     0(a0,d6.w),a0   ; y=y+1
  338.         dbf    d7,cyline5
  339.         rts
  340.  
  341. cxstepn5:        add.w   d3,d1   ; add to the error term.
  342.         ror.w   #1,d0   ; x=x+1
  343.         bcc.s   cdoystp5
  344.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  345.         lea     0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  346.         dbf    d7,cyline5
  347.         rts
  348.         
  349. cxmajor5:        move.w  d2,d1   ; Step along the X axis...
  350.     asr.w    #1,d1
  351.         move.w  d2,d7
  352. cxline5: or.w    d0,(a0) ; set pixel
  353.         or.w    d0,4(a0)
  354.     not.w    d0
  355.     and.w    d0,2(a0)
  356.     and.w    d0,6(a0)
  357.     not.w    d0
  358.         sub.w   d3,d1
  359.         bls.s   cystpn5
  360.         ror.w   #1,d0   ; x=x+1
  361.         bcc.s   cror2fr5
  362.         addq.l  #8,a0
  363. cror2fr5:        dbf    d7,cxline5
  364.         rts
  365. cystpn5: add.w   d2,d1   ; time to alter the y coord
  366.         lea     0(a0,d6.w),a0
  367.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  368.         bcc.s   cror2fr5
  369.         addq.l  #8,a0
  370.         dbf    d7,cxline5
  371.         rts
  372.  
  373.         
  374. cymajor6:        move.w  d3,d1   ; The Y axis is major
  375.     asr.w    #1,d1
  376.         move.w  d3,d7
  377.  
  378. cyline6: or.w    d0,2(a0)
  379.         or.w    d0,4(a0)
  380.     not.w    d0
  381.     and.w    d0,(a0)
  382.     and.w    d0,6(a0)
  383.     not.w    d0
  384.         sub.w   d2,d1
  385.         bls.s   cxstepn6
  386. cdoystp6:        lea     0(a0,d6.w),a0   ; y=y+1
  387.         dbf    d7,cyline6
  388.         rts
  389.  
  390. cxstepn6:        add.w   d3,d1   ; add to the error term.
  391.         ror.w   #1,d0   ; x=x+1
  392.         bcc.s   cdoystp6
  393.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  394.         lea     0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  395.         dbf    d7,cyline6
  396.         rts
  397.         
  398. cxmajor6:        move.w  d2,d1   ; Step along the X axis...
  399.     asr.w    #1,d1
  400.         move.w  d2,d7
  401.  
  402. cxline6: or.w    d0,2(a0) ; set pixel
  403.         or.w    d0,4(a0)
  404.     not.w    d0
  405.     and.w    d0,(a0)
  406.     and.w    d0,6(a0)
  407.     not.w    d0
  408.         sub.w   d3,d1
  409.         bls.s   cystpn6
  410.         ror.w   #1,d0   ; x=x+1
  411.         bcc.s   cror2fr6
  412.         addq.l  #8,a0
  413. cror2fr6:        dbf    d7,cxline6
  414.         rts
  415. cystpn6: add.w   d2,d1   ; time to alter the y coord
  416.         lea     0(a0,d6.w),a0
  417.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  418.         bcc.s   cror2fr6
  419.         addq.l  #8,a0
  420.         dbf    d7,cxline6
  421.         rts
  422.  
  423.         
  424. cymajor7:        move.w  d3,d1   ; The Y axis is major
  425.     asr.w    #1,d1
  426.         move.w  d3,d7
  427. cyline7: or.w    d0,(a0)
  428.         or.w    d0,2(a0)
  429.         or.w    d0,4(a0)
  430.     not.w    d0
  431.     and.w    d0,6(a0)
  432.     not.w    d0
  433.         sub.w   d2,d1
  434.         bls.s   cxstepn7
  435. cdoystp7:        lea     0(a0,d6.w),a0   ; y=y+1
  436.         dbf    d7,cyline7
  437.         rts
  438.  
  439. cxstepn7:        add.w   d3,d1   ; add to the error term.
  440.         ror.w   #1,d0   ; x=x+1
  441.         bcc.s   cdoystp7
  442.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  443.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  444.         dbf    d7,cyline7
  445.         rts
  446.         
  447. cxmajor7:        move.w  d2,d1   ; Step along the X axis...
  448.     asr.w    #1,d1
  449.         move.w  d2,d7
  450. cxline7: or.w    d0,(a0) ; set pixel
  451.         or.w    d0,2(a0)
  452.         or.w    d0,4(a0)
  453.     not.w    d0
  454.     and.w    d0,6(a0)
  455.     not.w    d0
  456.         sub.w   d3,d1
  457.         bls.s   cystpn7
  458.         ror.w   #1,d0   ; x=x+1
  459.         bcc.s   cror2fr7
  460.         addq.l  #8,a0
  461. cror2fr7:        dbf    d7,cxline7
  462.         rts
  463. cystpn7: add.w   d2,d1   ; time to alter the y coord
  464.         lea    0(a0,d6.w),a0
  465.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  466.         bcc.s   cror2fr7
  467.         addq.l  #8,a0
  468.         dbf    d7,cxline7
  469.         rts
  470.  
  471.         
  472. cymajor8:        move.w  d3,d1   ; The Y axis is major
  473.     asr.w    #1,d1
  474.         move.w  d3,d7
  475.  
  476. cyline8: or.w    d0,6(a0)
  477.     not.w    d0
  478.     and.w    d0,(a0)
  479.     and.w    d0,2(a0)
  480.     and.w    d0,4(a0)
  481.     not.w    d0
  482.         sub.w   d2,d1
  483.         bls.s   cxstepn8
  484. cdoystp8:        lea    0(a0,d6.w),a0   ; y=y+1
  485.         dbf    d7,cyline8
  486.         rts
  487.  
  488. cxstepn8:        add.w   d3,d1   ; add to the error term.
  489.         ror.w   #1,d0   ; x=x+1
  490.         bcc.s   cdoystp8
  491.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  492.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  493.         dbf    d7,cyline8
  494.         rts
  495.         
  496. cxmajor8:        move.w  d2,d1   ; Step along the X axis...
  497.     asr.w    #1,d1
  498.         move.w  d2,d7
  499.  
  500. cxline8: or.w    d0,6(a0) ; set pixel
  501.     not.w    d0
  502.     and.w    d0,(a0)
  503.     and.w    d0,2(a0)
  504.     and.w    d0,4(a0)
  505.     not.w    d0
  506.         sub.w   d3,d1
  507.         bls.s   cystpn8
  508.         ror.w   #1,d0   ; x=x+1
  509.         bcc.s   cror2fr8
  510.         addq.l  #8,a0
  511. cror2fr8:        dbf    d7,cxline8
  512.         rts
  513. cystpn8: add.w   d2,d1   ; time to alter the y coord
  514.         lea    0(a0,d6.w),a0
  515.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  516.         bcc.s   cror2fr8
  517.         addq.l  #8,a0
  518.         dbf    d7,cxline8
  519.         rts
  520.  
  521. cymajor9:        move.w  d3,d1   ; The Y axis is major
  522.     asr.w    #1,d1
  523.         move.w  d3,d7
  524. cyline9: or.w    d0,(a0)
  525.         or.w    d0,6(a0)
  526.     not.w    d0
  527.     and.w    d0,2(a0)
  528.     and.w    d0,4(a0)
  529.     not.w    d0
  530.         sub.w   d2,d1
  531.         bls.s   cxstepn9
  532. cdoystp9:        lea    0(a0,d6.w),a0   ; y=y+1
  533.         dbf    d7,cyline9
  534.         rts
  535.  
  536. cxstepn9:        add.w   d3,d1   ; add to the error term.
  537.         ror.w   #1,d0   ; x=x+1
  538.         bcc.s   cdoystp9
  539.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  540.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  541.         dbf    d7,cyline9
  542.         rts
  543.         
  544. cxmajor9:        move.w  d2,d1   ; Step along the X axis...
  545.     asr.w    #1,d1
  546.         move.w  d2,d7
  547. cxline9: or.w    d0,(a0) ; set pixel
  548.         or.w    d0,6(a0)
  549.     not.w    d0
  550.     and.w    d0,2(a0)
  551.     and.w    d0,4(a0)
  552.     not.w    d0
  553.         sub.w   d3,d1
  554.         bls.s   cystpn9
  555.         ror.w   #1,d0   ; x=x+1
  556.         bcc.s   cror2fr9
  557.         addq.l  #8,a0
  558. cror2fr9:        dbf    d7,cxline9
  559.         rts
  560. cystpn9: add.w   d2,d1   ; time to alter the y coord
  561.         lea    0(a0,d6.w),a0
  562.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  563.         bcc.s   cror2fr9
  564.         addq.l  #8,a0
  565.         dbf    d7,cxline9
  566.         rts
  567.  
  568. cymajora:        move.w  d3,d1   ; The Y axis is major
  569.     asr.w    #1,d1
  570.         move.w  d3,d7
  571.  
  572. cylinea: or.w    d0,2(a0)
  573.         or.w    d0,6(a0)
  574.     not.w    d0
  575.     and.w    d0,(a0)
  576.     and.w    d0,4(a0)
  577.     not.w    d0
  578.         sub.w   d2,d1
  579.         bls.s   cxstepna
  580. cdoystpa:        lea    0(a0,d6.w),a0   ; y=y+1
  581.         dbf    d7,cylinea
  582.         rts
  583.  
  584. cxstepna:        add.w   d3,d1   ; add to the error term.
  585.         ror.w   #1,d0   ; x=x+1
  586.         bcc.s   cdoystpa
  587.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  588.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  589.         dbf    d7,cylinea
  590.         rts
  591.         
  592. cxmajora:        move.w  d2,d1   ; Step along the X axis...
  593.     asr.w    #1,d1
  594.         move.w  d2,d7
  595.  
  596. cxlinea: or.w    d0,2(a0) ; set pixel
  597.         or.w    d0,6(a0)
  598.     not.w    d0
  599.     and.w    d0,(a0)
  600.     and.w    d0,4(a0)
  601.     not.w    d0
  602.         sub.w   d3,d1
  603.         bls.s   cystpna
  604.         ror.w   #1,d0   ; x=x+1
  605.         bcc.s   cror2fra
  606.         addq.l  #8,a0
  607. cror2fra:        dbf    d7,cxlinea
  608.         rts
  609. cystpna: add.w   d2,d1   ; time to alter the y coord
  610.         lea    0(a0,d6.w),a0
  611.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  612.         bcc.s   cror2fra
  613.         addq.l  #8,a0
  614.         dbf    d7,cxlinea
  615.         rts
  616.  
  617. cymajorb:        move.w  d3,d1   ; The Y axis is major
  618.     asr.w    #1,d1
  619.         move.w  d3,d7
  620. cylineb: or.w    d0,(a0)
  621.         or.w    d0,2(a0)
  622.         or.w    d0,6(a0)
  623.     not.w    d0
  624.     and.w    d0,4(a0)
  625.     not.w    d0
  626.         sub.w   d2,d1
  627.         bls.s   cxstepnb
  628. cdoystpb:        lea    0(a0,d6.w),a0   ; y=y+1
  629.         dbf    d7,cylineb
  630.         rts
  631.  
  632. cxstepnb:        add.w   d3,d1   ; add to the error term.
  633.         ror.w   #1,d0   ; x=x+1
  634.         bcc.s   cdoystpb
  635.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  636.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  637.         dbf    d7,cylineb
  638.         rts
  639.         
  640. cxmajorb:        move.w  d2,d1   ; Step along the X axis...
  641.     asr.w    #1,d1
  642.         move.w  d2,d7
  643. cxlineb: or.w    d0,(a0) ; set pixel
  644.         or.w    d0,2(a0)
  645.         or.w    d0,6(a0)
  646.     not.w    d0
  647.     and.w    d0,4(a0)
  648.     not.w    d0
  649.         sub.w   d3,d1
  650.         bls.s   cystpnb
  651.         ror.w   #1,d0   ; x=x+1
  652.         bcc.s   cror2frb
  653.         addq.l  #8,a0
  654. cror2frb:        dbf    d7,cxlineb
  655.         rts
  656. cystpnb: add.w   d2,d1   ; time to alter the y coord
  657.         lea    0(a0,d6.w),a0
  658.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  659.         bcc.s   cror2frb
  660.         addq.l  #8,a0
  661.         dbf    d7,cxlineb
  662.         rts
  663.  
  664. cymajorc:        move.w  d3,d1   ; The Y axis is major
  665.     asr.w    #1,d1
  666.         move.w  d3,d7
  667.  
  668. cylinec: or.w    d0,4(a0)
  669.         or.w    d0,6(a0)
  670.     not.w    d0
  671.     and.w    d0,(a0)
  672.     and.w    d0,2(a0)
  673.     not.w    d0
  674.         sub.w   d2,d1
  675.         bls.s   cxstepnc
  676. cdoystpc:        lea    0(a0,d6.w),a0   ; y=y+1
  677.         dbf    d7,cylinec
  678.         rts
  679.  
  680. cxstepnc:        add.w   d3,d1   ; add to the error term.
  681.         ror.w   #1,d0   ; x=x+1
  682.         bcc.s   cdoystpc
  683.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  684.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  685.         dbf    d7,cylinec
  686.         rts
  687.         
  688. cxmajorc:        move.w  d2,d1   ; Step along the X axis...
  689.     asr.w    #1,d1
  690.         move.w  d2,d7
  691.  
  692. cxlinec: or.w    d0,4(a0) ; set pixel
  693.         or.w    d0,6(a0)
  694.     not.w    d0
  695.     and.w    d0,(a0)
  696.     and.w    d0,2(a0)
  697.     not.w    d0
  698.         sub.w   d3,d1
  699.         bls.s   cystpnc
  700.         ror.w   #1,d0   ; x=x+1
  701.         bcc.s   cror2frc
  702.         addq.l  #8,a0
  703. cror2frc:        dbf    d7,cxlinec
  704.         rts
  705. cystpnc: add.w   d2,d1   ; time to alter the y coord
  706.         lea    0(a0,d6.w),a0
  707.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  708.         bcc.s   cror2frc
  709.         addq.l  #8,a0
  710.         dbf    d7,cxlinec
  711.         rts
  712.  
  713. cymajord:        move.w  d3,d1   ; The Y axis is major
  714.     asr.w    #1,d1
  715.         move.w  d3,d7
  716. cylined: or.w    d0,(a0)
  717.         or.w    d0,4(a0)
  718.         or.w    d0,6(a0)
  719.     not.w    d0
  720.     and.w    d0,2(a0)
  721.     not.w    d0
  722.         sub.w   d2,d1
  723.         bls.s   cxstepnd
  724. cdoystpd:        lea    0(a0,d6.w),a0   ; y=y+1
  725.         dbf    d7,cylined
  726.         rts
  727.  
  728. cxstepnd:        add.w   d3,d1   ; add to the error term.
  729.         ror.w   #1,d0   ; x=x+1
  730.         bcc.s   cdoystpd
  731.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  732.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  733.         dbf    d7,cylined
  734.         rts
  735.         
  736. cxmajord:        move.w  d2,d1   ; Step along the X axis...
  737.     asr.w    #1,d1
  738.         move.w  d2,d7
  739. cxlined: or.w    d0,(a0) ; set pixel
  740.         or.w    d0,4(a0)
  741.         or.w    d0,6(a0)
  742.     not.w    d0
  743.     and.w    d0,2(a0)
  744.     not.w    d0
  745.         sub.w   d3,d1
  746.         bls.s   cystpnd
  747.         ror.w   #1,d0   ; x=x+1
  748.         bcc.s   cror2frd
  749.         addq.l  #8,a0
  750. cror2frd:        dbf    d7,cxlined
  751.         rts
  752. cystpnd: add.w   d2,d1   ; time to alter the y coord
  753.         lea    0(a0,d6.w),a0
  754.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  755.         bcc.s   cror2frd
  756.         addq.l  #8,a0
  757.         dbf    d7,cxlined
  758.         rts
  759.  
  760. cymajore:        move.w  d3,d1   ; The Y axis is major
  761.     asr.w    #1,d1
  762.         move.w  d3,d7
  763.  
  764. cylinee: or.w    d0,2(a0)
  765.         or.w    d0,4(a0)
  766.         or.w    d0,6(a0)
  767.     not.w    d0
  768.     and.w    d0,(a0)
  769.     not.w    d0
  770.         sub.w   d2,d1
  771.         bls.s   cxstepne
  772. cdoystpe:        lea    0(a0,d6.w),a0   ; y=y+1
  773.         dbf    d7,cylinee
  774.         rts
  775.  
  776. cxstepne:        add.w   d3,d1   ; add to the error term.
  777.         ror.w   #1,d0   ; x=x+1
  778.         bcc.s   cdoystpe
  779.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  780.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  781.         dbf    d7,cylinee
  782.         rts
  783.         
  784. cxmajore:        move.w  d2,d1   ; Step along the X axis...
  785.     asr.w    #1,d1
  786.         move.w  d2,d7
  787.  
  788. cxlinee: or.w    d0,2(a0) ; set pixel
  789.         or.w    d0,4(a0)
  790.         or.w    d0,6(a0)
  791.     not.w    d0
  792.     and.w    d0,(a0)
  793.     not.w    d0
  794.         sub.w   d3,d1
  795.         bls.s   cystpne
  796.         ror.w   #1,d0   ; x=x+1
  797.         bcc.s   cror2fre
  798.         addq.l  #8,a0
  799. cror2fre:        dbf    d7,cxlinee
  800.         rts
  801. cystpne: add.w   d2,d1   ; time to alter the y coord
  802.         lea    0(a0,d6.w),a0
  803.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  804.         bcc.s   cror2fre
  805.         addq.l  #8,a0
  806.         dbf    d7,cxlinee
  807.         rts
  808.  
  809. cymajorf:        move.w  d3,d1   ; The Y axis is major
  810.     asr.w    #1,d1
  811.         move.w  d3,d7
  812. cylinef: or.w    d0,(a0)
  813.         or.w    d0,2(a0)
  814.         or.w    d0,4(a0)
  815.         or.w    d0,6(a0)
  816.         sub.w   d2,d1
  817.         bls.s   cxstepnf
  818. cdoystpf:        lea    0(a0,d6.w),a0   ; y=y+1
  819.         dbf    d7,cylinef
  820.         rts
  821.  
  822. cxstepnf:        add.w   d3,d1   ; add to the error term.
  823.         ror.w   #1,d0   ; x=x+1
  824.         bcc.s   cdoystpf
  825.         addq.l  #8,a0   ; Optimise this, to lose some add instructions (ie: combine!)
  826.         lea    0(a0,d6.w),a0   ; Repeat a bit of code here stead of branch
  827.         dbf    d7,cylinef
  828.         rts
  829.         
  830. cxmajorf:        move.w  d2,d1   ; Step along the X axis...
  831.     asr.w    #1,d1
  832.         move.w  d2,d7
  833. cxlinef: or.w    d0,(a0) ; set pixel
  834.         or.w    d0,2(a0)
  835.         or.w    d0,4(a0)
  836.         or.w    d0,6(a0)
  837.         sub.w   d3,d1
  838.         bls.s   cystpnf
  839.         ror.w   #1,d0   ; x=x+1
  840.         bcc.s   cror2frf
  841.         addq.l  #8,a0
  842. cror2frf:        dbf    d7,cxlinef
  843.         rts
  844. cystpnf: add.w   d2,d1   ; time to alter the y coord
  845.         lea    0(a0,d6.w),a0
  846.         ror.w   #1,d0   ; stead of rpt, here is xstep1 onwards
  847.         bcc.s   cror2frf
  848.         addq.l  #8,a0
  849.         dbf    d7,cxlinef
  850.         rts
  851.  
  852.     dseg
  853.  
  854. ymajtab:
  855.     dc.l cymajor0,cymajor1,cymajor2,cymajor3
  856.     dc.l cymajor4,cymajor5,cymajor6,cymajor7
  857.     dc.l cymajor8,cymajor9,cymajora,cymajorb
  858.     dc.l cymajorc,cymajord,cymajore,cymajorf
  859. xmajtab:
  860.     dc.l cxmajor0,cxmajor1,cxmajor2,cxmajor3
  861.     dc.l cxmajor4,cxmajor5,cxmajor6,cxmajor7
  862.     dc.l cxmajor8,cxmajor9,cxmajora,cxmajorb
  863.     dc.l cxmajorc,cxmajord,cxmajore,cxmajorf
  864.     public lcolor
  865. lcolor:
  866.     dc.w 0
  867.  
  868.     public _cscreen
  869.  
  870.  
  871.  
  872.  
  873.